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1 

2 

3 

4 

5 

6 

7 

8 

9 

1.0 

11 

12 

13 

14 

15 

16 

17 

IB 

19 

20 
?1 
?2 
?3 
?4 
?5 
?6 
27 
2R 
29 
3 
31 
3 2 
3 3 
3 4 
35 
3 6 
3 7 
38 
3 9 
40 
41 
42 
43 
44 



(^0!?0P10 



;o»»cOPYRIGriT 1969. DIGITAL rQlUPMFNT CO"?.! MAYNARUi MASS,»»» 

;THIS SUR-PROGRAf ASSEMBLED '-ITh SYSTEM PARAMETER FILE - S,MAC(V414) 

XLIST 

LIST 
IFIMDEF T30,<T30 = 0>; ASSUME TyPE 3? DISPLAY IF T3B IS JNOEPI^IEn 
IFM T30,< 

TITLE 0IST3e - TYPF 30 DISPLAY' SERVICE ROUTINES 
ENTRY niPT30 
nlST30! 
> 

IFE T30,< 

TITLE DIP340 - TYPE 340 DISPLAY SERVICE ROUTINES 
ENTRY D1S340 
DI «;34w; 
> 

SURTTL R. GRUFN/RCC TS [»3 JUN 69 V004 
XP VDISSR,e?4t 

IPUT VERSION NUMBER IN GLOB LISTING AND LOADER STORAGE MsP 
i TNESE ROUTINFS HANDLE INTERRUPTS FROM THE DISPLAY Data 

: CHANNEL. THFY SEARC" THE COMMAND POINTER LIST SUPPLIED 
; BY THE USER AND OUTPUT SECTIONS OF DATA AS SPECIFIED THEREIN, 
! ALL OUTPUT IS DONE U^'ING THE BLKO COMMAND, 

i THE FORMAT QF THE COMMAND POINTER LIST IS AS FOLLOWS: 

i RH=0 END OF COMMAND POINTER LIST 

) RH=AnR LH=0 ADR IS ADDRESS OF THE NEXT SECTION OF THE 
! COMMAND POINTER LIST 

i RH=L-1 LH=-N OUTPUT TO THE DISPLAY THE N WORDS OF COMMANDS 
i REGIUNING AT LOCATION L, 

; VOTE THAT THE CHECK FOR END OF LIST IS MADE FIRST, 

i ALL ADDRESSES ARE CHECKED FDR VALIDITY (I.E.. THEY MUST 
! PE wITHiM USER AREA) BFFORF ANY MEM REF IS MADE. 

ilF THE T3(? SWITCH = 1 THIS IS THE ROUTINE FOR A DEC 
;TYPE 30 DISPLAY KITH A TYPE 348 INTERFACE. 
iOTHFRWISE IT IS THE rfOUTINE FOR A DEC TYPE 34?. 



nlR340 
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45 
46 
47 
48 
49 
50 
■51 
^1 
■53 
■54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
7B 
79 
30 



MZM 
000l?il 
0002)2 
WMi 
000PI4 
00005 
00006 
00007 

00010 

00011 
00012 
00013 
00014 
00015 
00016 
00017 

000?0 



445163 
000074 

0000f;0 

00001^0 
003003 
000000 

000000 

0000!»7 

000000 
000000 
000000 
0000?I0 
000000 
000010 
000000 
0000/0 
000011 



000000 
000000 
000000 

0000J4 ' 
020000 
000000 
000000 

000200 
000000 
00 00 
000000 

00^000 
000000 
000000 
00000 
000000 
000000 



0000?1 000000 000000 



INTERNAL FTCHECK.FTMONP 

IFN FTCHECK + FTMON'P,< 

EXTERNAL DISn0l3.nISinS,PENU0r.CI5PNT,DISRK0,niSHI,DIS0NE,DISAV.0FFDIS 

EXTERNAL DISAVl.niSREL, DISCO "fDISN XT 

INTERNAL DIS^^Xl 

> 

IFE etchfck+ftmonp.< 

iOIS DEVICE riATA BLOCK 
INTERN OlSOnB 
/DIS/ 
tD60»HlJNGST,':' 



DISDDH 
DISIOSi 



SIXBIT 

xwn 



EXP 

xun 



ywo 



DISDSP 

nVOIS*TVOUT + nviNi*DVLNG. 200 00 



PRnG,0 



PLNLOCi ■? 

niSPNT; 

niSBKO: 

n I SHI : 

n I SOME: 

liSAv: 

1ISAV1! 
niSREL! xwo 

XP 
IFE T30,< 

niscoN! EXP ONniR> 

MK T30,< 

niscnN! "> 

XP PENDOP.0 



TAC>0 
nFFOlS,0t 



ITO SATISFY A REOUEST IN COMMON, 
i THFRE IS NOT RFALLY A PEN DOB, 
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81 
SZ 
83 
S4 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 



00013)0 
0B02;?0 
000400 
001000 



000077 
007400 



IFN T30.< 

nlS=134 

> 

DISTAR=100 

niSWAT=200 

niscKR=40e 
nisuui = i0i30 

IFE T30,< 
niSBSV=77 
PENnKl = 7400 

IFN T30.< 

nisBSY=2000e 

PENOM=100a0 

> 

EXTERN JOBPFI 



iTYPE 30 DISPLAY DEVICE NUMBER 

;CLOCK FINISHED REEORE PICTURE 
(PICTURE FINISHEn REFORE CLOCK 
jCLOCK REQUEST IN CLOCK OUEUE 



100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 



EXTERN DISSAV,DISBLK,DISJSR,PENSAV 

EXTERN DISCHN.PENCHN 
EXTERN nISCHL.PFNCHL 
EXTERN nISSAV.DISRET 
EXTERN DlSPON.niSPOF 

EXTERN AORERR.SETIO'i 

EXTERN PI0N,PI0FF, CLOCK 

EXTERN CP0PjliUERROR,USRREL,STOTACiJOB.j8TSTSiJ8TADR,PJ0BN 



IFE JiH.K 



EXTERN 0N0IS,NONniS> 



INTERN PENINT.DISINT.DISFIN 
ENTRY DISOSP 

DEFINE ADRCHK(A) 
< 

CAILE A.JORPFI 

CAMLE A.Disnr 

JRST FXIT2 
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120 


H00022 


254000 


000043 1 


JRST 


DISINl 


)IN'ITILI?ATI0N 


121 


000023 


263140 


000000 


POPJ 


POP, 


;PRI»JT ERROR AND STOP JOR 


122 


000024 


254000 


000045' DISDSP: JRST 


nissTP 


(RELEASE 


123 


000025 


254000 


000045' 


JRST 


f^ISSTP 


iCLOSE 


124 


000026 


265240 


000000 


JSP 


DAT.UERROR 


lOUTPUT 


125 


000027 


265240 


000026' 


JSP 


DAT,UEPRnR 


1 INPUT 


126 


000030 


254000 


000000 


JRST 


rpopji 


iEMTER 


127 


000031 


2540W0 


000030' 


JRST 


rpopji 


(LOOKUP 


128 


000032 


254000 


000245' 


JRST 


nisouT 


(DUMP OUTPUT (THAT'S US) 


129 


000033 


2540J0 


000242' 


JRST 


nisiN 


(OUMP INPUT (AS IN PEN) 


130 


000034 


263140 


000000 


POPj 


POP, 


(SETtl 


131 


000035 


263140 


000000 


POPj 


PDP, 


(SFTI 


132 


000036 


263140 


000000 


POPJ 


POP, 


(GETF 


133 


000037 


254000 


000031' 


JRST 


rpnpjl 


(RENAME 


134 


000040 


263140 


000000 


POPJ 


POP. 


(CLOSE INPUT 


135 


000041 


263140 


000000 


POPj 


PDP. 


(DIRECTORY CLEAR 


136 


000042 


263140 


000000 


POPJ 


PDP, 


(MTAPE 



DIS340 
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137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 

156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 



000043 

000043 713230 000100 



00l'044 
00^045 

000046 

000047 

000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 

000050 
P100061 



254000 

200200 

205040 
412044 

476000 
205040 
541B40 
412040 
713200 
5130^0 
700600 
263140 

254000 
254000 



000050' 
000000 



011000 
000000 



DISIMI IS CALLED EQR RELEASE. CLOSE, AND SUNDRY ILLEGAL COiNDITICMS 
WHICH WANT TO TURN THE DISPLAY OFF, IT FIRST CONVINCE'; 
THE INTERRUPT LEVEL "OUTINES TO GO BACK TO SLEEP AND THEN 
TELLS THE MONITOR THAT THE DEVICE IS INACTIVE, LASTLY, 
IT TURNS OFF THE INTERRUPT ASSIGNMENTS OF THE DISPLAY 
AND THE PI CHANNEL ASSOCIATED WITH THE CIS BLKO. IT RETURNS 
) WITH A PDPJ , SOMETIMES TO ITS CALLING ROUTINE AND SOMETIMES 
I TO THE CHANNEL'S DISMISS ROUTINE. THE ADDRESS OF WHICH 
I WAS CLEVERLY PLACED ON THE PUSHDOWN LIST WHEN AC'S 
; WERE SAVED, THUS IT CAN BE CALLED WITH EITHER A 
i PUSHJ PDP,DISINI OR A JRST DISINI, 



IPARAMETER MO0E> 



DISINII 






IFE T30 


,< 






CONO 


DIS,100 


IFN T30 


,< 






MOVEI 


TAC.PENCHN 




ASH 


TAC,3 




40D1 


TACDISCHN 




TRO 


TAC,4000 




MOVEM 


TAC,bISCnN> 




JRST 


OlSINl 



ISET UP CONO WORD WITH PROPER 
I CHANNEL ASSIGNMENTS 



ISET DISPLAY READY BIT IN CONO WORD 



OlSSTPi MOVE ITEM, JOB 

MOVSI TAC,NSHF*NSWP 
IS A SWAPPING SYSTEM 

4NDCAM TAC,JBTSTS( ITEM) 



ICLEAR NSHF SO JOB CAN BE SHUFFLED 

(CLEAR NSWP SO JOB CAN BE SwAPPEdCIN CASE THIS 



000011' DISINII SETOM 



001200 

010000 

0000P12' 

000000 DISOFF: 

000062' 

000000 

000000 



MOVSI 

HRRI 

ANDCAM 

CONO 

HLLZS 

CONO 

POPJ 



PENLOC 
TAC.nlSWAT*DISUUI 



I IGNORE FURTHER TRAPS 



TAC.IOACT 

TACDISinS 

DIS.OFFOIS 

PENINT 

PI .DISPQF 

POP, 



IINOICATE DEVICE INACTIVE 

I INTO DEVICE DATA BLOCK 

IREMOVE THE DISPLAY'S CHANNEL AS"= I G\"EKT = 

IDON'T EXPECT ANY ON LITE Bf;^ 

ITURM OFF DISPLAY'S BLKO CHANNEL 



000127' DISINl! JRST DISFIN 
000060' JRST nISiNT 



DIS340 
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176 
177 
178 
179 

i<^e 
ifli 

182 
lfi3 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
2!10 
21^1 
2Pi2 
233 
2554 
2 '.'^5 
2?6 
2!^7 
2?B 



000062 
000263 
00PI064 
000065 
000066 
000067 
000070 
000071 



000072 
000073 



713340 
J54000 
713300 
254000 
713300 
713040 
713200 
254520 



264000 
254000 



PENINT RECEIEVES CONTROL ON INTERRUPTS ON THE DISPLAY N3N-DATA 
CHANNEL (SPECIAL CHA*!NEL). IT DECIDES IF THE INTERRUPT 
WAS VALID/ AM) IF So, TRANSFERS CONTROL TO AN APPRDPRIATE ROUTINE 



IFE Ti0.< 

00005!0 peninT! conso dis,; 



000062 ' 

000400 

000072' 

002000 

00001 1 ' 

000000 

000000 



JRST 
"■OMS? 
JRST 
COMSZ 
PENFLGl DATAI 
CONO 
JEN 



PENINT 

015,400 

STPFLG 

DIS,2000 

DIS.PENLOC 

niS.NONDIS 

9PENCHL 



(check for com flags 
!t0 other devices on same 
jstop Flag 



CHANNEL 



IPEN FLAG? 

ISTQRF CURRENT LITE PEN LOC 

ICLEAR FLAG 

lOISMISS INTERRUPT 



fSTPFLG SERVICES STOP FLAGS (DISPLAY PROGRAMMED) BY DOING 
! * CLOSE ON THE DISPLAY 



000000 STPFLGI JSR 
000025" JRST 

> 



OENSAV 
nlSOSP*DCL 



I FN T30, 
PENINT; 



CONSO DIS,0 
JRST PENINT 
DATAI DIS.PEMLDC 
MOVEM TACPENLOC 
MOVE TACDISBKD 
SU? TACDISREL 
HRRES TAC 
FXCH TACPENLOC 
JEN SPENCHL 



(STOP FLAG, SAVE AC'S AND SETUP RETURN 
(00 A CLOSE AND DISMISS INTERRUPT 



(CHECK FOR COM FLAGS 

(TO OTHER DEVICES ON SAME CHANNEL 

(CLEAR PEN INTERRUPT 

(SAVE AC TAC 

(GET A9S0LUTE ADR OF NEXT DATA ELEMENT 

(MAKE ADDRESS RELATIVE 

(CLEAR OUT GARBAGE IN THE LEFT HALF 

(SAVE ADR IN PFNLOC AND RESTORE TAC 

(DISMIS THE INTERRUPT 



DIS340 
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2P9 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 

228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 



000074 000000 00000a 



000075 
000076 



000077 
000100 
000101 
000102 
000103 
000104 



000105 
000106 
000107 
000110 
000111 
000112 
000113 
000114 

000115 
000116 
000117 
000120 
000121 
000122 
000123 
000124 
000125 
000126 



354040 
552040 



303040 
313240 
254000 
200060 
202040 
566040 



606040 
254000 
627040 
254000 
301040 
311040 
254000 
274040 

303040 
313040 
254000 
550040 
272040 
350000 
350000 
200040 
713220 
254120 



000012' 
000012' 



000000 

000014" 

000124' 

000020' 

000013' 

000017 ' 



777777 
000123' 
777777 
000076' 
000077 ' 
000014' 
000124 ' 
000017 ' 

000111 ' 
000014 ' 
000124 ' 
000020' 
000013' 
000074 ' 
000074' 
000016' 
000021' 
000074 ' 



iDISMXT IS CALLED WITH A JSR DIS-JXT, IT <;eTS UP THE '>iEXT 

! POINTER FOR THE DISPLAY'S BLKO BY INTERPRETING A 

i C0MM\NO LIST SUPPLIED PY THE USER, THIS COMMAND LIST 

i IS OESrHIBED AT THE REniK'NiNG OF THE PROKRAM. IE THE 

I OATA TO RE TRANSMITTED T^ THE DISPLAY WOULD VIOLATE THE 

; MEMORY PROTECTIOM, THE"! THE ROUTINE RETURNS TO THE 

I CALLING LOCATION +1, OTHERWISE. IF THERE 

! IS NO FURTHER DATA TO PE OUTPUT (AS INDICATED PY THE 

! USER'S COMMAND LIST) THE ROUTINE RETURNS TO THE CALLING 

; LOCATION +2. OTHERWISE, THE NEXT POINTER FOR THE RLKO 

! IS PLACED IN DISPKD AND THE ROUTINE RETURNS TO THE CALLING 

I LOCATION *Z, 



IFE FTCHECK+FTMONP,< 
niSNXT! 



DISNXl! 
ILUP! 



AOSA 

HRR2M 
ADRCMK 



MOVE 

mOVEM 

HLRO" 

IFN T30,< 

JUMPE 

TRNN 

JRST 

IFE T30,< 

TRNN 
JRST 
TLZN 
JRST 
CAIL 
CAML 
JRST 

sue 

*DRCHK 



HRRE 

SDDM 

AOS 

AOS 

MOVE 

CONO 

JRST 



EXITl! 
EXIT2! 



TACDISPNT 
TACDISPMT 
TACt 



;JSR AT INTERRUPT OR UUO LEVELS 

IGET NEXT POINTER FROM LIST 
lUPDATE POINTER POINTER 



CAILE TACJOBPFI 

CAMLE TAC,i^ISHI 

JRST EXIT? 

TACfJDlSREL IGET NEXT WORD IN POINTER LIST 

TACniSBKO IPLACE |N 5LK0 POINTER 

TACDISAVl !GET NEGATIVE WORD COUNT(MAKF LH NEG, 



TOO) 



TAC, EXITl 
TAC,-1 

INTCMK 



;END OF COMMAND LIST? 

(INTENSITY? 

IYES> 



INO, 

lYES, 

!N0, 

INO 
lYFS, 



POINTER 
ADDRESS 



TAC,-1 lEND OF COMMAND LIST? 

EXITl )YFS> 

TAC,-1 

ILUP 

TACJOBPFI 

TACOISHI 

FXIT2 

TACDISAVl 

TACt 

CAILE TACJOBPFI 

CAMLE TACmSHI 

JRST EXIT? 

TACDISRFL 

TACDISBKO 

niSNXT 

nISNXT 

TACOISAV 

OIS.SDISCOM 

2,9DISNXT 



TO NEW LIST? 
IN SOUNDS? 



AQR, OF LAST WORD IN BLOCK, 



IFORM ABSOLUTE ADDR 

I IN THE PLKD POINTER WORn 

IRETURN 2,4 



ISET UP DISPLAY STATUS WORD 
I , , . 



IFN T30,< 
INTCHKr MOVSS 
DP8 



TAC 

TAC INTPNT 



IPLACE INTENSITY IN COMO WORD 
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262 

263 



jfiST niSNVi 

INTPNIT: POINT 3,ril Scon, 29> 



IGET \f:xT PQINTER 



DIS340 



264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
2B0 
2fll 
282 

2fl3 
2H4 
286 
2B6 
287 
288 
289 
29(5 
291 
292 
293 
294 
295 
296 
297 
298 
299 
3510 
i?l 
3C2 
3f!3 
3P4 
3i>5 
3P6 
3?'7 
338 
3«"9 
310 
311 
312 
313 
314 
315 
316 
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00C127 
(»0Pl3li) 
000131 
000132 
000133 



?I00134 
000135 
000136 
Ra0137 
000140 
000141 
000142 
i?00143 
000144 
f/00145 
000146 
Pa0147 
000150 
B00151 
000152 
!»00153 
000154 
000155 
000156 
000157 
000160 
000161 
000162 
000163 
000164 
^00165 
000166 



202040 
264000 
254000 
254000 
254520 



2640f^0 
201300 
205040 
205240 
135210 
260140 
?05lS^;0 
437000 
667000 
2540i^0 
612044 
254e;i0 
6030C''0 
260140 
254070 
603e!»0 
260140 
412244 
200000 
620000 
5230t-0 
250140 
2020B0 
2540510 
202000 
260140 
2540C0 



000000 

000000' 

004000 

001000 

000000 

000064' 

000200 

000002' 

001000 

000164' 

000047 ' 

000153' 

000100 

000167' 

000156 ' 

000100 

000204' 

000146' 

000002' 

010000 

000001 
000000 

000002' 

000000 

000002 ' 
000167' 
000163' 



IDISFIN RECEIVES CONTROL WHE" THE DISPLAY'S RLKO POINTER REACHES 

; ?ERO. IT SAVES THE TWO AC'S HHICH OISMXT USES AMD 

; DOES A JSR TO OISNXT, m A NJQRMAL HE:TURN IT RESTORES THE 

) AC'S AND DISMISSES THE IK'TFRPUPT, Q^ A "NO mqRE DAT«" 

! RETURN IT TRANSFERS CONTROL TO 0VT2 FOR FURTHER 

) DECISION AS TO WHETHER OR N'OT TO CONTINUE D I SPLA Y piG . 



000016' 
000074 ' 
000236' 
000134' 

000000 



OISFIN; 



;0VT2 
I 



0VT2! 



0VT4! 



OVTb! 

CVT3; 



0VT6! 



MOVEM 

JSR 

JRST 

JRST 

JEN 



TACDISAV 

DiSNxT : 

ADRER 

0VT2 

PDISCHL 



ISAVE AC'S 

;SETUP NEXT BLKO POINTER 

IRETURN HERE IF NO NEXT POINTER 
ILfT THE SCOPE DO THE REST 



RECEIVES CONTROL AT INTERRUPT LEVEL WHEN THE COMMAND LIST 
(SUPPLIED 8Y THE USE") RUNS OUT, IT SAVES THE AC'S FOR 
THIS CHANNEL AMD IN THE PROCESS ENABLES RETURNS BY POPJ 
AND SIMILAR GOOD THINGS SINCE IT ALSO STORES THE PC FROM 
THE JSR IN THE GENERAL PC LOCATION FOR THIS CHANNEL 
IF THE DISPLAYIS OFF, IT DOES NOT RESTART IT, 

IT CHECKS TD SEE IF THE CLOCK HAS RUN OUT BEFORE THE PICTUREl 
IF SO, IT CALLS DISBEG TO RESTART THE DISPLAY WITH A NEW 
COMMAND LIST. IT TURNS OFF THE 10 ACTIVE BIT WHICH WAS 
TURNED ON BY THE OUTPUT ROUTINE! THIS INSURES THAT ANY 
OUTPUT COMMAND WILL niSPLAY AT LEAST ONE PICTURE. IF 
THE JOB WAS INAN lO-WAIT, IT IS RELEASED, 



JSR 

MOVEI 

MOVSI 

MDVSI 

LD9 

pushj 

MOVSI 

lORB 

TLON 

JRST 

TONE 

JRST 

TLNE 

PUSHJ 

JRST 

TLNE 

PUSHJ 

ANDCAM 

MOVE 

TRZ 

TL?E 

PUSHJ 

MOVEM 

JRST 

MOVEM 

PUSHJ 

JRST 



DIS 
DEVDA 
TAC 
OAT 
ITE 
POP 
lOS 
lOS 
lOS 
PVT 
TAC 

nvT 
lOS 
PDP 
VT3 
lOS 
PDP 
DAT 
IDS 
IDS 
IDS 
PDP 
lOS 

nis 

IDS 
PDP 
DIS 



SAV 

T,DISDDB 

.SHF 

,nSHF 
M.PJDBN 
.OISOFF 
, I S K A T 
.DISIDS 

.nisuui 

6 

, JBTSTSC ITEM) 

4 

,DISTAR 

iDlSBEG 

.nISTAR 

.CLKREQ 

, JOTSTSdTEM) 

.DISins 

, lOiCT 

. lOiil 

.SETIOD 

.DISIOS 

RET 

.DISIOS 

.nIStlFG 

RET 



(ASK EXEC TO SAVE AC'S 
ISETUP ACS 



mOICATE PICTURES FINISHE'^ 
I . , . 

IRESUME DISPLAY, NEW UUO. 
lYES, STAY IN 10 ►(AIT 

iPOES SYSTEM WANT TO SHUFFLE THic jop? 
lYES 

iHAS CLOCK TRIGGERED? 
lYES, RESTART DISPLAY 

lOID CLOCK FINISH BEFORE PICTURE? 
lYFS, PUT IN CLOCK REQUEST, 

ITURN OFF NSHF SO JOR CAN BE SHUFFLE'n 
16IT FIDDLING TIME 
ISIGNAL DISPLAY CAN BE CLOSED 
IIS DISPLAY CAUSING AN lO-WAIT? 
lUNWAIT THE JOR 
(RESTORE 10 CONTROL WORD 
IRFSTORE AC? AND DISMISS 

(START NEW COMMAND LIST 
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317 








oisoEG IS callEli with a PUS*^ 


J Pnp.DISBEr., it DISABLES THE 


318 








r-l<;pLAY 


1 rSELF (=Y U'^ 


»!G OlSrFF) AND ALSO DISARLFS THE 


319 








'"L'lK 


RFSTART A^iD RESFT? THE POINTER TO THE USER'S 


3.?a 








ro"!^ANjn 


L 1ST T? THAT 


iPEriFIED OW The LAST OUTPUT 


3?1 








"IVuS 





NF. IT 4PKS J^ 


PNXT TO SET UP THE NEXT PLKO POINTER 


3?2 








IF -I 


SMXT IS U^^SIICTE'^ 


jFUL (I.E.. IF THE USER COMMAMO LIST 


i?3 








IS \' 


LL), THFN THE RTUTIVE DDES A HLnSE. OTHERWISE. A 


3?4 








t'tnuF 


ST 


13 EvTERFa FP 


» A CLOTK INTERRUPT AT THE FNT OF 


325 








AT yr 


ST 


T«0 JIFFIES, 


This clock oueoue request is emtfreo 


326 








ONLY 


IF 


THERE IS NHNF 


^L'^EADY IN THE QUEUE, The PI 


327 








CHkW 


ELS FOR TniE DISPLAY ARE TURMED OH AGAIN AND THE 


328 








nisPL 


AY 


IS 1MIT1ALI2F[ 


BY 4 CONO, IT SHOULD THEN REOUEST 


329 








'lATA 


AS 


SOOM AS THE D 


CHANNEL FOR THE BLKO IS TURNER ON. 


330 
331 








IT TUHVS TH]'; CH,«N^EI 


(IN AND RETURNS TO ITS OALLFR, 


332 


Pi0P'167 


205000 


0003710 OISdFfi! '.'OVSI 




10S,niSTAR*0ISWAT .'INDICATE FRESH niSPLAY 


333 


l?^0C170 


4126500 


030jJ:>2 • 


ANOCAM 


los.nisns 


! . . , 


334 


000171 


550100 


000015' 


HRR2 




TACl.DISnME 


IGFT POINTER LIST ADOR (-1) 


335 


000172 


5521^0 


00''012' 


WRR?\< 




TAn.DISPNT 


IRFSET POINTER POINTER i«ITH IT 


336 


000173 


264000 


000074 ' 


JSR 




DISWT 


IASK FOR FIRST WORD FOR PLKO 


337 


000174 


2540/0 


000237' 


JRST 




AllRERl 




338 


000175 


254000 


000045 ' 


JRST 




1ISSTP 


JNULL LIST, CLOSE 


339 


000176 


260140 


000204 • 


PUSl-J 




POP, rL<RFa 


lE'-'TER CLOCK QUEUE KEQUE'^T 


340 


f' 1 7 7 


713220 


000021' 


rONO 




Tis.^uisrn^' 


I I'JITIALIZE THE DISPLAY 


341 


000200 


201040 


007410 


«OVEI 




TAC.PE* -r*' 


lALLOW SPECIAL PI IiviTERRJPTS 


342 


0002^1 


542040 


000062 ' 


MRR^i 




TAC,PE'iI\'T 


) , , • 


343 


000202 


7006J0 


0a0^.'0 


rOMo 




PI .DISPDV 


JALLOW BLKO INTERRUPTS 


344 
345 


000203 


763140 


00^000 


fO°,j 




PPP. 


IRFTUHN 


346 


000224 


2050S"0 


000400 r 


LKREUi ^'OVSI 




lOS.niscKR 


I IF NO CLOCK INTERRUPT RfqueSTFD 


347 


000205 


200040 


00021 4' 


"OVt 




TACCLIKRT 


IRFSET TIMER 


348 


000206 


730600 


000000 


COWD 




PI iPIOFF 


(INHIBIT INTERRUPTS 


349 


000207 


S76000 


000002 ' 


TDON 




los.nisios 


lENJTER ONLY A SINGLE CLO'~K REQUEST 


350 


000210 


136040 


000000 


!DP8 




TACCUnCK 


iPLACE REQUEST IN QUEUE 


351 


000211 


4360--10 


000002' 


IORm 




ias,ni?:ins 


IPRQTECT ACainST A DUPLICATE REQUEST 


352 


000212 


700600 


000B?'e 


ro^C 




PI iPiom 


IU'>:i"IPIT INTERRUPTS 


353 
354 


000213 


263140 


00001^0 


noPj 




POP. 


■RETURN 


3';5 
356 


000214 


000215' 


000002 rLHKRT: XWT 




CLOK ,2 


ICQNTHOl FOR CLOCK QUEUE: 2 JIFFIES 
;TWn JIFFIES 



nis34a 
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357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 

376 
377 
378 
379 
380 
381 
382 
3B3 
384 
385 
3S6 
387 
386 
389 
390 
391 
392 
393 
394 
395 
396 



?100215 
000216 
000217 
000270 
000221 
000222 
f00223 
000224 
000225 
000226 
0ai?i227 
000230 

000231 
000232 
000233 
000234 

000235 



000236 

000237 
000240 
000241 



000242 
000243 
000244 



205000 
413000 
663000 
205000 
437000 
607000 
253140 
201300 
205040 
1352H0 
612044 
254000 

436044 
200044 
556040 
542040 

254000 



264000 
260140 
2013^0 
254000 



211040 
250040 
254000 



000400 
000002 ' 
001000 
000100 
000002' 
000200 
000000 
000000 ' 

001000 
000140 ' 
000155' 
000167' 

000227 ' 
000000 
000014 < 
000020' 
000167' 



000134' 
000025' 
000000' 
000000 



CLOK 



ciaKi 



ADRER 



IS CALLED AT THE CLOCK LEVEL IN RESPONSE TO A REQUEST 
IN TWE CLOCK OUEUE. A BIT IS SET To INDICATE THAT THE 
CLOCL PERIOD HAS ELAPSED, IF THE DISPLAY IS STILL IN 
PROGRESS> CLOK RFTUR^■S AT THIS POINT, OTHERWISE, CLOK 
GOES TO DIS8EG TO ST*RT UP THE DISPLAY, OISBEG RETURNS 
WITH A POPJ POP, 



MOVSI lOS.DlSCKR 
ANOCAB lQS,nISIOS 
TLOE lOS.DISUUI 



IINDICATE CLOCK REQUEST SERVICED 
t . , , 

lASK DISPLAY TO RESTART 
I , . . 

IHAS DISPLAY FINISHED? 

INO, WAIT FOR IT TO DO SO 



; IS SHUFFLE LOCKED OUT? 
;YES, RESTART DISPLAY ANO RETURN 

INO, LOCK IT OUT, : 

iRESi^T DISHI AND DISPEL AFTER SHUFFLING 



IRESART DISPLAY AND RETURN 

SERVICES PROTECTION VIOLATIONS DISCOVERED BY DISNXT, 

IT DOES A CLOSE AND THEN CALLS THE MONITOR'S ERROR PRINTING 

ROUTINES TO INFORM THE USER. 



MOVSI 


IOS,DISTAR 


lORB 


los.nisios 


TLNN 


lOS.DISWAT 


POPj 


POP, 


MOVEI 


OEVDAT.OISDDR 


MOVSI 


TACNSHF 


LDP 


ITEM,PjonN 


TONE 


TACJBTSTS! ITEM) 


JRST 


DISBEG 


lORM 


TAC, JBTSTS(ITEM) 


MOVE 


TAC, jBTAORt ITEM) 


WLRHM 


TAG, DISHI 


HRRM 


TACnISRFL 


JRST 


OISBEG 



ADRER! JSR 
ADRERl! PUSHJ 
MOVEI 



IDISIN 



I 

000001 OISIN! 
000011' 

000000 



DISSAV )SAVE AC'S AGAIN 

PDP.DISDSP^DFL IDO A CLOSE 

OEVDAT,DISDD° ITFLL ERROR ROUTINE WHO'S UNHAPPY 
JRST ADRERR IGO GRIPE 

HANDLES LITE PEN UUO (INPUT) IN A RUDIMENTARY FASHIU'J 
BY RETURNING (TO THE AOOR SPECIFIED BY THE ADDR FIELD 
OF THE INPUT UUO) THE LAST PEN COORDINATES SEEN, 



MOVNI 

EXCH 

JRST 



TACl 

TACPENLOC 

STOTAC 



;GET LATEST COORDINATES, 
ISTORE AND RFTURN 



niSZAB 
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397 
398 
399 
4?,B 
4fl 
402 
A'/,3 
4?14 
4:15 
4«'6 
4?7 
408 
4!?9 
410 
411 
412 
fl3 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
4?9 



0002<I5 
000246 
000247 
000250 
?|00251 
000252 
000253 
000254 
000255 
000256 
5100257 
000260 
000261 
000262 
000263 
000264 

000265 
000266 



661000 
660000 
2756«0 
200040 
202040 
200040 
202040 
201040 
542040 
4 3 7 (» f 
552600 
205ii?B 
436000 
713320 
412000 
254b:<0 

7131!'0 
2640(10 



220 
0000 
0001 
0265 

000 

0266 
0000 
7400 
0062 

0002 
0015 
1000 

0002 

0021 
0002 
0204 



DISOUT nOES THE WORK OF THE OUTPUT UUO , IT SETS 4 EU T TO 
INOICATL THAT THE DEVICE IS ACTIVE A^D INHIBITS 
INTERUPTS WHICH MAY STILL RE IN PROGRESS. SI^CE THE 
MONITOR CALLS WSYNCE BEFORE COMING HERE, THE USER IS 
GUARANTEED AT LEAST ONE P I CTURE/OUTpuT , THE USERS MEMORY 
POUNDS AOE STORED FQR OUICK USE AT IMTERRUPT LEVEL W/0 
SAVI'iG AC'S. THE LOCATION Of THE COMMAND LIST (-1) IS 
STORED FOR USE IN SETTING UP BLKO POINTERS. THE PI 
LOCATIONS (40 ♦ 2J1 ARE INITIALI?ED WITH A BLKO IN 
THE FVEN LOCATION AN" A JSR TO OISFIN IN THE 000 LOCATION, 
THE NON-DATA CHANNEL CONSO IS SETUP TO BELIEVE !M THE 
A PDPJ POPf IT RETURNS ON BEHALF OF THE OUTPUT UUO. 



niSOUTs TLO 
TRO 



lOS, lO+DlSWAT 
lOS, lOACT 
SUBI UUO.l 

MOVE TAC.BLKLIT 

MOVEM TACnlSBLK 
MOVE TACJSRLIT 

MOVEM TACOISJSR 
MOVE! TACPENON 

HRRM TACPENINT 

lORB lOS.DlSIOS 

HRRZM UUO.DISONE 

MOVSI lOS.DISUUI 
lORM lOS.DISIOS 

CONS? nis.BDiscoN 

ANOCAM lOSiDISIOS 
JRST CLKRFQ 



IINDICATE OUTPUT; REQUEST START UP 

IINDICATE DEVICE ACTIVE 

lALLOW FOR INCREMENT AT INTERRUPT 

IFEEOS WORDS TO THE DISPLAY 

IFROM EVEN NUMPERED INTERRUPT LOC 

(SERVICE THE END OF BLKO 

IFRQM ODD INTERRUPT LOC 

(SETUP CONSO BITS ON SPECIAL CHANNEL 

I . . . 

)SET lOACT 0N( INDICATE OUTPUT 

ISET NEW COMMAND LIST ORIGIN 

lALLOW DISPLAY 
(DISPLAY ALREADY IN USE 

(ENTER CLOCK QUEUE REQUEST AND POPJ 



000013 ' 
000133" 



BLKLIT; RLKO 
JSRLITl JSR 
END 



nIS.DISBKO 
DISCHL 



MO ERRORS DETECTED 
PROGRAM BREAK IS 000267 



D1S340 
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ADRER 


000236' 




BLKLIT 


000265' 




CLOK 


000215' 




OAT 


000005 


INT 


OIS340 


f!00000 ' 


INT 


OISBEG 


000167' 




nISBSY 


000077 




OISCKR 


000400 




nisosp 


000024' 


INT 


D I S I N 


000242' 




niSIMT 


000060' 


INT 


DISNXl 


000075' 




DISOME 


000015' 




Dispnr 


000056' 


EXT 


DISRET 


000166' 


EXT 


niSTAR 


0001'00 




nvois 


002000 


INT 


DVnuT 


0000C1 


INT 


FTCHEC 


000000 


INT 


ILUP 


000076' 




I OS 


000000 


INT 


JBTAHR 


000232' 


EXT 


JOBPFI 


000115' 


EXT 


NSHF 


001000 


INT 


OMOIS 


000021' 


EXT 


nVT4 


000153' 




PDP 


000003 


INT 


PENiDDB 


000000 


INT 


PENLDC 


000011' 




PIOFF 


000206' 


EXT 


PROG 


300007 


INT 


STOTAC 


000244 ' 


EXT 


TAr 


000001 


INT 


USRREL 


000000 


EXT 



AORERl 


000237 




CLKREQ 


000204 




CLOKRT 


000214 




DCL 


0000''1 


INT 


□ ISAV 


000016 




niSBKo 


000013 




DISCML 


000266 


EXT 


DISCON 


000021 




niSFIN 


000127 


INT 


DISIMl 


0000'!0 




nisios 


000002 




DISNXT 


000074 




rilSOUT 


000245 




nispoN 


000202 


EXT 


niSSiV 


000236 


EXT 


nisuui 


001000 




nvlN 


000002 


INT 


EXITl 


0001?3 




FTMONP 


000000 


INT 


10 


000020 


INT 


lOW 


000001 


INT 


JBTSTS 


000231 


EXT 


JSRLIT 


000266 




MSWP 


010000 


INT 


nVT2 


000134 




0VT5 


000155 




PEMCHL 


000071 


EXT 


PENFLG 


000067 




PENON 


007400 




PION 


000212 


EXT 


SETIOD 


000161 


EXT 


STPFLG 


000072 




TACl 


P000'»2 


INT 


MUO 


000014 


INT 



ADRERR 


000241' 


rXT 


CLOCK 


000210' 


rxT 


CPOPJl 


000037' 


rXT 


DEVDAT 


000006 


INT 


DISAVl 


000017' 




DISBLK 


000251' 


rXT 


DISCHN 


000000 


FXT 


OISDOS 


000000' 


INT 


DISHI 


000014' 




OISIM 


000043' 




DISJSR 


000253' 


rXT 


DISOFF 


000054' 




DISPNT 


000012' 




nISREL 


000020' 




DISSTP 


000045' 




DISWAT 


000200 




OVLNG 


001000 


INT 


EXIT2 


000124' 




HUNGST 


000001 


INT 


lOACT 


010000 


INT 


ITEM 


000004 


INT 


JOB 


000045' 


FXT 


NONDIS 


000070' 


FXT 


OFFDIS 


000000 


INT 


0VT3 


000156' 




0VT5 


000164' 




PENCHN 


000000 


rXT 


PENINT 


000062' 


INT 


PENSAV 


000072' 


■■XT 


PJOBN 


000226' 


FXT 


SHF 


004000 


INT 


T30 


000000 




UERRQR 


000027' 


rXT 


VDISSR 


030Z04 


'NT 



A 


6* 


6 






ACl 


6# 


6 






4C2 


6« 


6 






4C3 


6« 








ADRER 


273 


s^^e* 






AORERl 


3:^7 


387* 






40RERR 


106 


3S9 






AEFERR 


6« 


6 






AL 


6# 


6 






ASSCON 


6# 


6 






ASSPRG 


6* 


6 






B 


6* 


6 






9LKLIT 


413 


4?7# 






BUFPMT 


6# 


6 






RUFWRD 


6# 


6 






CLKR 


6* 


6 






CLKRFQ 


3^6 


339 


346« 


4?* 


CLOCK 


107 


350 






CLCK 


355 


364# 






CLPKRI 


317 


355# 






CLSIN 


6# 


6 






CLSOUT 


6* 


6 






CMWB 


6# 


6 






CORCMT 


bM 


6 






CPnpji 


1?I8 


126 


1?7 


133 


D 


6« 


6 






OAT 


6# 


6 


IPt 


IJiJ 


DCU 


6« 


6 


134 


38/ 


DCLI 


&» 


6 






OCUO 


bit 


6 






DCUR 


6* 


6 






ODI 


6# 


6 






DDO 


6# 


6 






DEN 


6# 


6 






DEVADR 


6* 


6 






DEVBUF 


b* 


6 






DEVCMR 


6# 


6 






DEVCTR 


6# 


6 






DEVDAT 


6# 


6 


201 


371 


DEVEXT 


6# 


6 






DEVFIL 


6* 


6 






DEVI4D 


6# 


6 






DEVIOS 


6# 


6 






DEVLOG 


6# 


6 






OEVMSn 


6# 


6 






OEVNIAM 


6* 


6 






OEVOAD 


6«* 


6 






QEVPPN 


6# 


6 






OEVPTR 


6# 


6 






DEVSER 


6# 


6 






DGF 


6i<( 


6 






DHNG 


6# 


6 






DIN 


6# 


6 







?<53 



337 



3B8 



DINI 


6* 


6 






nis 


151 


169 


161 


183 


DIS340 


15 


16* 






DISAV 


69* 


255 


271 




DISAVl 


izn 


233 


246 




niSBeG 


303 


315 


332* 


37b 


DISBKO 


66# 


232 


252 


427 


DISBLK 


100 


414 






nISBSY 


91# 








DISCHL 


102 


275 


428 




DISCHN 


101 








DISCKR 


87# 


346 


364 




niSCON 


74# 


256 


340 


423 


DISDDB 


54 


55* 


291 


371 


DISDSP 


56 


112 


122* 


194 


niSFIN 


111 


174 


271* 




DISHI 


67M 


279 


244 


249 


DISIN 


129 


394# 






DISIMl 


158 


165* 






DISINI 


120 


149* 






nISINT 


111 


174* 


175 




Disins 


57# 


168 


297 


308 


OISJSR 


100 


416 






DISNXl 


225# 








OISNXT 


223* 


253 


254 


257 


OISOFF 


169# 


295 






DISO\iE 


68* 


334 


420 




DISOUT 


128 


410* 






DISPMT 


65* 


225 


226 


33b 


niSPOF 


104 


171 






DISPON 


104 


343 






niSRFL 


71* 


231 


251 


379 


DISRET 


103 


313 


316 




DISSAV 


100 


103 


290 


386 


OISSTP 


122 


123 


160* 


338 


BISTAR 


85* 


302 


305 


332 


DISUUI 


88* 


166 


298 


366 


DISWAT 


86* 


166 


296 


332 


DLK 


6* 


6 






DMT 


6* 


6 






DNAERR 


6* 


6 






OOU 


6* 


6 






DR 


6* 


6 






□ RL 


6* 


6 






CRN 


6* 


6 






DSER 


6* 


6 






□ SI 


6* 


6 






DSKRUB 


6* 


6 






DSO 


6* 


6 






DVAVAL 


6* 


6 






DVCDR 


6* 


6 






DVDIR 


6* 


6 






nVDIRI 


6* 


6 







185 186 



3812 



187 



256 



340 



423 



427 



388 
387 



378 



312 



272 



314 



336 



333 



349 



351 



365 



368 



419 



422 



424 



367 
421 
369 410 



nvnis 


6# 


6 


59 


nvnSK 


6# 


6 




ovnTi 


6# 


6 




nviN 


6# 


6 


59 


n V L N c. 


6« 


6 


■59 


DVLPT 


6# 


6 




nvMTA 


6# 


6 




nvnuT 


6* 


6 


59 


nvPTP 


6# 


6 




nvPTR 


6# 


6 




rvTTv 


&tt 


6 




FMTRD 


6» 


6 




Fxin 


240 


25'1« 




FXIT? 


230 


245 


250 


FBMERR 


6« 


6 




FNFFIRR 


6I» 


6 




FRGSi^G 


6* 


6 




FTJRFL 


6# 






FTATTA 


b# 






FTCHFC 


b# 


46 


47 


FTFXAM 


6» 






FTF IMI 


6# 






FTGETT 


6# 






FTHALT 


6# 






FTKCT 


6l» 






FTMOIvR 


bit 


46 


47 


FTPRV 


bit 






FTRAia 


bit 






FTRCMK 


bH 






FTRE4S 


bit 






FTSLEE 


5« 






FTTALK 


6« 






FTTI>^E 


6# 






FTTR4C 


6# 






FTTROS 


6# 






FTTTYS 


6# 






MSA^'SK 


6* 


6 




HSAP"S 


6# 


6 




HSiS!2 


bit 


6 




HUMGFT 


bit 


6 




muvg";t 


btt 


6 


56 


1 


bit 


6 




IB 


bit 


6 




IB'IFB 


bit 


6 




ICLOSB 


bit 


6 




ILV 


bit 






ILHERR 


bit 


6 




ILHP 


2?6# 


242 




IN«r!> 


bt 


6 


' 


INI TR 


bH 


6 




INP^ 


bU 


6 




10 


b« 


6 


410 


IO«CT 


5« 


6 


167 



255# 



52 



222 



222 



3/!9 



)REG 


6tf 


6 




)BKTL 


6# 


6 




)BOT 


6* 


6 




)COM 


5# 


6 




IDEND 


6# 


6 




IDERR 


6# 


6 




IDTER 


6*i 


6 




lENH 


6# 


6 




IFST 


6# 


6 




IIMPM 


bit 


6 




INRCK 


6# 


6 




IPAR 


bit 


6 




IS 


b# 


6 


296 




346 


349 


351 




4?4 






TEND 


6* 


6 




USE 


b# 


6 




M 


b# 


6 


31i3 


wc 


b# 


6 




PERR 


b» 


6 




EM 


b# 


6 


160 


rcT 


6# 


6 




FADR 


bit 


6 




ECTR 


bit 


6 




FPTR 


bit 


6 




TADR 


1PI8 


377 




TSTS 


If'S 


163 


3510 


ur 


bit 


6 




AT 


bit 


6 




RR 


bit 


6 




riG 


bit 


6 




A 


6# 


6 




B 


108 


160 




RPFI 


99 


228 


243 





bn 


6 




RLIT 


415 


428# 




POS 


6# 


5 




SI^ 


6# 


6 




PN 


6# 


6 




STSN 


6 






OK" 


5# 


6 




DOLE 


6# 


6 




nERR 


5# 


6 




EERR 


6# 


6 




NOIS 


1K9 


1«7 
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